1 DATA 30,8,29,27,28,25,31,26
2 CLS
3 A=12
4 B=16
5 LOCATE 11,3
6 FOR N=1TO8
7 READ D
8 IF K=A TH K=B EL K=A
9 FOR I=1TOK
10 ? "*";CHR$(8);CHR$(D);
11 NEXT
12 NEXT
13 A=A-1
14 B=B-2
15 ? CHR$(27);
16 RESTORE
17 IF B>7 TH 6
18 ?